Apple II Magazines (DO)/Softdisk Magazette Volume 1, No. 07 (1982-03)(Softdisk)(Side A).zip/Softdisk Magazette Volume 1, No. 07 (1982-03)(Softdisk)(Side A).do/POP.QUIZ.bas

BASIC Source File | 1996-12-24 | 10KB | 256 lines

10  REM  POP.QUIZ
20  TEXT
30  DIM AB$(29),A$(29)
35  FOR I = 1 TO 29:A$(I) = "B": NEXT
40 A$(6) = "A":A$(7) = "A":A$(9) = "A":A$(16) = "A":A$(17) = "A":A$(20) = "A":A$(21) = "A":A$(23) = "A":A$(25) = "A":A$(29) = "A":A$(2) = "A":A$(18) = "A"
45 A$(1) = "C":A$(8) = "C":A$(14) = "C":A$(19) = "C":A$(24) = "C":A$(27) = "C"
50 I = 0
900  HOME : VTAB 10: HTAB 8: PRINT "THIS TEST ORIGINATED WITH"
910  PRINT : HTAB 14: PRINT "JULIAN ROTTER": PRINT : HTAB 8: PRINT "UNIVERSITY OF CONNECTICUT"
920  VTAB 18: HTAB 14: INVERSE : PRINT "HIT RETURN";: NORMAL : INPUT " ";R$
1000  HOME : VTAB 2: HTAB 12: PRINT "POP QUIZ": VTAB 5
1010  PRINT "EACH OF THE FOLLOWING ITEMS CONSISTS"
1020  PRINT "OF A PAIR OF ALTERNATIVES LETTERED"
1030  PRINT "'A'  OR  'B'.
1040  PRINT : PRINT "PLEASE SELECT THE ONE STATEMENT OF"
1050  PRINT "EACH PAIR WHICH YOU MORE STRONGLY"
1060  PRINT "BELIEVE TO BE THE CASE AS FAR AS"
1070  PRINT "YOU'RE CONCERNED."
1080  PRINT : PRINT "BE SURE TO SELECT THE ONE YOU ACTUALLY"
1090  PRINT "BELIEVE TO BE MORE TRUE, RATHER THAN"
1100  PRINT "THE ONE YOU THINK YOU SHOULD CHOOSE,"
1110  PRINT "OR THE ONE YOU WOULD LIKE TO BE TRUE."
1120  PRINT : PRINT "THIS IS A MEASURE OF PERSONAL BELIEF."
1130  PRINT : PRINT "THERE ARE NO WRONG OR RIGHT ANSWERS."
1140  PRINT : HTAB 14: INVERSE : PRINT "HIT RETURN";: NORMAL : INPUT " ";R$
2000  GOSUB 8000
2010  PRINT "CHILDREN GET INTO TROUBLE BECAUSE"
2020  PRINT "   THEIR PARENTS PUNISH THEM TOO MUCH."
2030  GOSUB 8100
2040  PRINT "THE TROUBLE WITH MOST CHILDREN"
2050  PRINT "   NOWADAYS IS THAT THEIR PARENTS ARE"
2060  PRINT "   TOO EASY WITH THEM."
2070  GOSUB 8200
2090  PRINT "MANY OF THE UNHAPPY THINGS IN"
2100  PRINT "   PEOPLE'S LIVES ARE DUE TO BAD LUCK."
2110  GOSUB 8100
2120  PRINT "PEOPLE'S MISFORTUNES RESULT FROM THE"
2130  PRINT "   MISTAKES THEY MAKE."
2140  GOSUB 8200
2160  PRINT "ONE OF THE MAJOR REASONS WHY WE HAVE"
2170  PRINT "   WARS IS BECAUSE PEOPLE DON'T TAKE"
2180  PRINT "   ENOUGH INTEREST IN POLITICS."
2190  GOSUB 8100
2200  PRINT "THERE WILL ALWAYS BE WARS, NO MATTER"
2210  PRINT "   HOW HARD PEOPLE TRY TO PREVENT ONE."
2220  GOSUB 8200
2240  PRINT "IN THE LONG RUN, PEOPLE GET THE"
2250  PRINT "   RESPECT THEY DESERVE IN THIS WORLD."
2260  GOSUB 8100
2270  PRINT "UNFORTUNATELY, AN INDIVIDUAL'S WORTH"
2280  PRINT "   OFTEN PASSES UNRECOGNIZED, NO MATTER"
2290  PRINT "   HOW HARD HE TRIES."
2300  GOSUB 8200
2320  PRINT "THE IDEA THAT TEACHERS ARE UNFAIR TO"
2330  PRINT "   STUDENTS IS NONSENSE."
2340  GOSUB 8100
2350  PRINT "MOST STUDENT'S DON'T REALIZE THE"
2360  PRINT "   EXTENT TO WHICH THEIR GRADES ARE"
2370  PRINT "   INFLUENCED BY ACCIDENTAL HAPPENINGS."
2380  GOSUB 8200
2400  PRINT "WITHOUT THE RIGHT BREAKS, ONE CANNOT"
2410  PRINT "   BE AN EFFECTIVE LEADER."
2415  GOSUB 8100
2420  PRINT "CAPABLE PEOPLE WHO FAIL TO BECOME"
2430  PRINT "   LEADERS HAVE NOT TAKEN ADVANTAGE OF"
2440  PRINT "   THEIR OPPORTUNITIES."
2450  GOSUB 8200
2470  PRINT "NO MATTER HOW HARD YOU TRY, SOME"
2480  PRINT "   PEOPLE JUST DON'T LIKE YOU."
2490  GOSUB 8100
2500  PRINT "PEOPLE WHO CAN'T GET OTHERS TO LIKE"
2510  PRINT "   THEM DON'T UNDERSTAND HOW TO GET"
2520  PRINT "   ALONG WITH OTHERS."
2530  GOSUB 8200
2550  PRINT "HEREDITY PLAYS THE MAJOR ROLE IN"
2560  PRINT "   DETERMINING ONE'S PERSONALITY."
2570  GOSUB 8100
2580  PRINT "IT IS ONE'S EXPERIENCES IN LIFE"
2590  PRINT "   WHICH DETERMINE WHAT THEY'RE LIKE."
2600  GOSUB 8200
2620  PRINT "I HAVE OFTEN FOUND THAT WHAT IS"
2630  PRINT "   GOING TO HAPPEN WILL HAPPEN."
2640  GOSUB 8100
2650  PRINT "TRUSTING TO FATE HAS NEVER TURNED"
2660  PRINT "   OUT AS WELL FOR ME AS MAKING A"
2670  PRINT "   DECISION TO TAKE A DEFINITE COURSE"
2680  PRINT "   OF ACTION."
2690  GOSUB 8200
2700  PRINT "IN THE CASE OF THE WELL-PREPARED"
2710  PRINT "   STUDENT, THERE IS RARELY, IF EVER,"
2720  PRINT "   SUCH A THING AS AN UNFAIR TEST."
2730  GOSUB 8100
2740  PRINT "MANY TIMES, EXAM QUESTIONS TEND TO"
2750  PRINT "   BE SO UNREALTED TO COURSE WORK THAT"
2760  PRINT "   STUDYING IS REALLY USELESS."
2780  GOSUB 8200
2790  PRINT "BECOMING A SUCCESS IS A MATTER OF"
2800  PRINT "   HARD WORK, LUCK HAS LITTLE OR"
2805  PRINT "   NOTHING TO DO WITH IT."
2810  GOSUB 8100
2820  PRINT "GETTING A GOOD JOB DEPENDS MAINLY ON"
2830  PRINT "   BEING IN THE RIGHT PLACE AT THE"
2840  PRINT "   RIGHT TIME."
2850  GOSUB 8200
2860  PRINT "THE AVERAGE CITIZEN CAN HAVE AN"
2870  PRINT "   INFLUENCE IN GOVERNMENT DECISIONS."
2880  GOSUB 8100
2890  PRINT "THIS WORLD IS RUN BY THE FEW PEOPLE"
2900  PRINT "   IN POWER, AND THERE IS NOT MUCH THE"
2910  PRINT "   LITTLE GUY CAN DO ABOUT IT."
2920  GOSUB 8200
2930  PRINT "WHEN I MAKE PLANS, I AM ALMOST"
2940  PRINT "   CERTAIN THAT I CAN MAKE THEM WORK."
2950  GOSUB 8100
2960  PRINT "IT IS NOT ALWAYS WISE TO PLAN TOO"
2970  PRINT "   FAR AHEAD, BECAUSE MANY THINGS TURN"
2980  PRINT "   OUT TO BE A MATTER OF GOOD OR BAD"
2990  PRINT "   FORTUNE ANYHOW."
3000  GOSUB 8200
3010  PRINT "THERE ARE CERTAIN PEOPLE WHO ARE"
3020  PRINT "   JUST NO GOOD."
3030  GOSUB 8100
3040  PRINT "THERE IS SOME GOOD IN EVERYBODY."
3050  GOSUB 8200
3060  PRINT "IN MY CASE, GETTING WHAT I WANT HAS"
3070  PRINT "   LITTLE OR NOTHING TO DO WITH LUCK."
3080  GOSUB 8100
3090  PRINT "MANY TIMES, WE MIGHT JUST AS WELL"
3100  PRINT "   DECIDE WHAT TO DO BY FLIPPING A"
3110  PRINT "   COIN."
3120  GOSUB 8200
3130  PRINT "WHO GETS TO BE THE BOSS OFTEN"
3140  PRINT "   DEPENDS ON WHO WAS LUCKY ENOUGH TO"
3150  PRINT "   BE IN THE RIGHT PLACE FIRST."
3160  GOSUB 8100
3170  PRINT "GETTING PEOPLE TO DO THE RIGHT THING"
3180  PRINT "   DEPENDS UPON ABILITY; LUCK HAS"
3190  PRINT "   LITTLE OR NOTHING TO DO WITH IT."
3200  GOSUB 8200
3210  PRINT "AS FAR AS WORLD AFFAIRS ARE"
3220  PRINT "   CONCERNED, MOST OF US ARE THE"
3230  PRINT "   VICTIMS OF FORCES WE CAN NEITHER"
3240  PRINT "   UNDERSTAND, NOR CONTROL."
3250  GOSUB 8100
3260  PRINT "BY TAKING AN ACTIVE PART IN"
3270  PRINT "   POLITICAL AND SOCIAL AFFAIRS, THE"
3280  PRINT "   PEOPLE CAN CONTROL WORLD EVENTS."
3290  GOSUB 8200
3300  PRINT "MOST PEOPLE DON'T REALIZE THE EXTENT"
3310  PRINT "   TO WHICH THEIR LIVES ARE CONTROLLED"
3320  PRINT "   BY ACCIDENTAL HAPPENINGS."
3330  GOSUB 8100
3340  PRINT "THERE REALLY IS NO SUCH THING AS"
3350  PRINT "   LUCK."
3360  GOSUB 8200
3370  PRINT "ONE SHOULD ALWAYS BE WILLING TO"
3380  PRINT "   ADMIT MISTAKES."
3390  GOSUB 8100
3400  PRINT "IT IS USUALLY BEST TO COVER UP ONE'S"
3410  PRINT "   MISTAKES."
3420  GOSUB 8200
3430  PRINT "IT IS HARD TO KNOW WHETHER OR NOT A"
3440  PRINT "   PERSON REALLY LIKES YOU."
3450  GOSUB 8100
3460  PRINT "HOW MANY FRIENDS YOU HAVE DEPENDS"
3470  PRINT "   UPON HOW NICE A PERSON YOU ARE."
3480  GOSUB 8200
3490  PRINT "IN THE LONG RUN, THE BAD THINGS THAT"
3500  PRINT "   HAPPEN TO US ARE BALANCED BY THE"
3510  PRINT "   GOOD ONES."
3520  GOSUB 8100
3530  PRINT "MOST MISFORTUNES ARE THE RESULT OF"
3540  PRINT "   LACK OF ABILITY, IGNORANCE,"
3550  PRINT "   LAZINESS, OR ALL THREE."
3560  GOSUB 8200
3570  PRINT "WITH ENOUGH EFFORT, WE CAN WIPE OUT"
3580  PRINT "   POLITICAL CORRUPTION."
3590  GOSUB 8100
3600  PRINT "IT IS DIFFICULT FOR PEOPLE TO HAVE"
3610  PRINT "   MUCH CONTROL OVER THE THINGS "
3620  PRINT "   POLITICIANS DO IN OFFICE."
3630  GOSUB 8200
3640  PRINT "SOMETIMES I CAN'T UNDERSTAND HOW"
3650  PRINT "   TEACHERS ARRIVE AT THE GRADES THEY"
3660  PRINT "   GIVE."
3670  GOSUB 8100
3680  PRINT "THERE IS A DIRECT CONNECTION BETWEEN"
3690  PRINT "   HOW HARD I STUDY AND THE GRADES I"
3700  PRINT "   GET."
3710  GOSUB 8200
3720  PRINT "A GOOD LEADER EXPECTS PEOPLE TO "
3730  PRINT "   DECIDE FOR THEMSELVES WHAT THEY"
3740  PRINT "   SHOULD DO."
3750  GOSUB 8100
3760  PRINT "A GOOD LEADER MAKES IT CLEAR TO "
3770  PRINT "   EVERYBODY WHAT THEIR JOBS ARE."
3780  GOSUB 8200
3790  PRINT "MANY TIMES I FEEL THAT I HAVE LITTLE"
3800  PRINT "   INFLUENCE OVER THE THINGS THAT"
3810  PRINT "   HAPPEN TO ME."
3820  GOSUB 8100
3830  PRINT "IT IS IMPOSSIBLE FOR ME TO BELIEVE"
3840  PRINT "   THAT CHANCE OR LUCK PLAYS AN"
3850  PRINT "   IMPORTANT ROLE IN MY LIFE."
3860  GOSUB 8200
3870  PRINT "PEOPLE ARE LONELY BECAUSE THEY DON'T"
3880  PRINT "   TRY TO BE FRIENDLY."
3890  GOSUB 8100
3900  PRINT "THERE'S NOT MUCH USE IN TRYING TOO"
3910  PRINT "   HARD TO PLEASE PEOPLE; IF THEY"
3920  PRINT "   LIKE YOU, THEY LIKE YOU."
3930  GOSUB 8200
3940  PRINT "THERE IS TOO MUCH EMPHASIS ON"
3950  PRINT "   ATHLETICS IN HIGH SCHOOL."
3960  GOSUB 8100
3970  PRINT "TEAM SPORTS ARE AN EXCELLENT WAY TO"
3980  PRINT "   BUILD CHARACTER."
3990  GOSUB 8200
4000  PRINT "WHAT HAPPENS TO ME IS MY OWN DOING."
4010  GOSUB 8100
4020  PRINT "SOMETIMES I FEEL THAT I DON'T HAVE"
4030  PRINT "   ENOUGH CONTROL OVER THE DIRECTION"
4040  PRINT "   MY LIFE IS TAKING."
4050  GOSUB 8200
4060  PRINT "MOST OF THE TIME, I CAN'T UNDERSTAND"
4070  PRINT "   WHY POLITICIANS BEHAVE THE WAY THEY"
4080  PRINT "   DO."
4090  GOSUB 8100
4100  PRINT "IN THE LONG-RUN, THE PEOPLE ARE "
4110  PRINT "   RESPONSIBLE FOR BAD GOVERNMENT ON A"
4120  PRINT "   NATIONAL AS WELL AS ON A LOCAL"
4130  PRINT "   LEVEL."
4140  GOSUB 8300
5000 EX = 23: FOR I = 1 TO 29: IF AB$(I) = A$(I)  THEN EX = EX -1
5005  NEXT I
5010  HOME : PRINT "00";: HTAB 8: INVERSE : PRINT "EXTERNAL CONTROL": NORMAL
5020  PRINT "01": PRINT "02": PRINT "03": PRINT "04": PRINT "05"
5030  PRINT "06     DOES FATE CONTROL YOUR LIFE?"
5040  PRINT "07": PRINT "08     ARE YOU IN CHARGE?"
5050  PRINT "09": PRINT "10     THE ANSWERS ARE YES, YES."
5060  PRINT "11": PRINT "12     THERE IS NO RIGHT PLACE TO BE"
5070  PRINT "13": PRINT "14     ON THE INTERNAL-EXTERNAL SCALE."
5080  PRINT "15": PRINT "16     COMPARE YOUR SCORE WITH OTHERS."
5090  PRINT "17": PRINT "18": PRINT "19": PRINT "20": PRINT "21": PRINT "22"
5100  PRINT "23";: INVERSE : HTAB 8: PRINT "INTERNAL CONTROL";: NORMAL : HTAB 29: PRINT "HIT RETURN";
5105  VTAB EX +1: HTAB 3: FLASH : PRINT "<--";: NORMAL : INPUT "";R$
5107  HOME
5110  PRINT  CHR$(4);"RUN KICK.IT.OFF"
5999  END
8000  HOME : VTAB 2: HTAB 12: PRINT "POP QUIZ": VTAB 6: PRINT "A. ";: RETURN
8100  VTAB 14: PRINT "B. ";: RETURN
8200  GOSUB 8300: GOSUB 8000: RETURN
8300  VTAB 22: CALL  -868: PRINT "WHICH IS MORE TRUE (A OR B)? ";: GET R$: PRINT
8310  IF R$ < >"A"  AND R$ < >"B" GOTO 8300
8315 I = I +1:AB$(I) = R$
8320  RETURN